home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Stuffed Files / Accounting.pit / Account Balances / card_4587.txt < prev    next >
Encoding:
Text File  |  1988-10-21  |  2.4 KB  |  109 lines
  1. -- card: 4587 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2478
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if cd fld "credit" is empty then
  9.     pop card
  10.   else
  11.     repeat with i = 1 to the number of cd flds
  12.       delete line 1 to 25 of cd fld i
  13.     end repeat
  14.     repeat with x = 1 to the number of lines of cd fld "credit"
  15.       put line x of cd fld "credit" into temp
  16.       put formatNum (temp,1,1) into line x of cd fld "credit"
  17.     end repeat
  18.     repeat with x = 1 to the number of lines of cd fld "debit"
  19.       put line x of cd fld "debit" into var
  20.       put formatNum (var,1,1) into line x of cd fld "debit"
  21.     end repeat
  22.   end if
  23. end openCard
  24.  
  25.  
  26.  
  27. -- part 4 (field)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=1 top=0 right=325 bottom=86
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 10
  36. -- style flags: 0
  37. -- line height: 13
  38. -- part name: date
  39.  
  40.  
  41. -- part 5 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=86 top=0 right=325 bottom=171
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 65535
  48. -- font id: 3
  49. -- text size: 10
  50. -- style flags: 0
  51. -- line height: 13
  52. -- part name: invoice#
  53.  
  54.  
  55. -- part 6 (field)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=171 top=0 right=325 bottom=256
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 65535
  62. -- font id: 3
  63. -- text size: 10
  64. -- style flags: 0
  65. -- line height: 13
  66. -- part name: check#
  67.  
  68.  
  69. -- part 7 (field)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=256 top=0 right=325 bottom=341
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 65535
  76. -- font id: 3
  77. -- text size: 10
  78. -- style flags: 0
  79. -- line height: 13
  80. -- part name: datePaid
  81.  
  82.  
  83. -- part 8 (field)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=341 top=0 right=325 bottom=426
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 65535
  90. -- font id: 3
  91. -- text size: 10
  92. -- style flags: 0
  93. -- line height: 13
  94. -- part name: debit
  95.  
  96.  
  97. -- part 9 (field)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=426 top=0 right=325 bottom=510
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 65535
  104. -- font id: 3
  105. -- text size: 10
  106. -- style flags: 0
  107. -- line height: 13
  108. -- part name: credit
  109.